home *** CD-ROM | disk | FTP | other *** search
/ Freaks Macintosh Archive / Freaks Macintosh Archive.bin / Freaks Macintosh Archives / Macintosh / Hex & Data Fork Tools / Decimal2Hex.sit / Decimal2Hex / DecimaltoHex next >
Text File  |  1997-07-08  |  2KB  |  217 lines
  1. #!usr\local\bin\perl
  2.  
  3. print "This script was written by Jon Kelfer\.  If you would like to \ncontact him send a message to htc\@cloud9.net\n\n";
  4. print "Please don't send me BS messages\.\.\.  If you think the script\nis bad don't tell me! Hell, I am only 15\.\n\n\n\n";
  5. $counter = 0;
  6. $digit1 = 0;
  7. $digit2 = 0;
  8. $digit3 = 0;
  9. $digit4 = 0;
  10.  
  11.  
  12. print "Enter the Decimal: ";
  13. $decimal = <STDIN>;
  14.  
  15. while ($counter != $decimal)
  16. {
  17.  
  18. if ($decimal != $counter)
  19. {
  20.  
  21. if ($digit1 != 15)
  22. {
  23. $counter = $counter + 1;
  24. $digit1 = $digit1 + 1;
  25. }
  26.  
  27. }
  28.  
  29.  
  30.  
  31.  
  32. if ($decimal != $counter)
  33. {
  34.  
  35. if ($digit1 == 15 && $digit2 != 15)
  36. {
  37. $digit2 = $digit2 + 1;
  38. $digit1 = 0;
  39. $counter = $counter + 1;
  40. }
  41.  
  42. }
  43.  
  44.  
  45.  
  46.  
  47. if ($decimal != $counter)
  48. {
  49.  
  50. if ($digit1 == 15 && $digit2 == 15 && $digit3 != 15)
  51. {
  52. $digit3 = $digit3 + 1;
  53. $digit2 = 0;
  54. $digit1 = 0;
  55. $counter = $counter + 1;
  56. }
  57.  
  58. }
  59.  
  60.  
  61.  
  62.  
  63.  
  64. if ($decimal != $counter)
  65. {
  66.  
  67. if ($digit1 == 15 && $digit2 == 15 && $digit3 == 15 && $digit4 != 15)
  68. {
  69. $digit4 = $digit4 + 1;
  70. $digit3 = 0;
  71. $digit2 = 0;
  72. $digit1 = 0;
  73. $counter = $counter + 1;
  74. }
  75.  
  76. }
  77.  
  78.  
  79. }
  80.  
  81.  
  82.  
  83.  
  84.  
  85. if ($digit4 == 15)
  86. {
  87. print "f";
  88. }
  89.  
  90. elsif ($digit4 == 14)
  91. {
  92. print "e";
  93. }
  94.  
  95. elsif ($digit4 == 13)
  96. {
  97. print "d";
  98. }
  99.  
  100. elsif ($digit4 == 12)
  101. {
  102. print "c";
  103. }
  104.  
  105. elsif ($digit4 == 11)
  106. {
  107. print "b";
  108. }
  109. elsif ($digit4 == 10)
  110. {
  111. print "a";
  112. }
  113. else
  114. {
  115. print ($digit4);
  116. }
  117.  
  118.  
  119. if ($digit3 == 15)
  120. {
  121. print "f";
  122. }
  123.  
  124. elsif ($digit3 == 14)
  125. {
  126. print "e";
  127. }
  128.  
  129. elsif ($digit3 == 13)
  130. {
  131. print "d";
  132. }
  133.  
  134. elsif ($digit3 == 12)
  135. {
  136. print "c";
  137. }
  138.  
  139. elsif ($digit3 == 11)
  140. {
  141. print "b";
  142. }
  143. elsif ($digit3 == 10)
  144. {
  145. print "a";
  146. }
  147. else
  148. {
  149. print ($digit3);
  150. }
  151.  
  152.  
  153. if ($digit2 == 15)
  154. {
  155. print "f";
  156. }
  157.  
  158. elsif ($digit2 == 14)
  159. {
  160. print "e";
  161. }
  162.  
  163. elsif ($digit2 == 13)
  164. {
  165. print "d";
  166. }
  167.  
  168. elsif ($digit2 == 12)
  169. {
  170. print "c";
  171. }
  172.  
  173. elsif ($digit2 == 11)
  174. {
  175. print "b";
  176. }
  177. elsif ($digit2 == 10)
  178. {
  179. print "a";
  180. }
  181. else
  182. {
  183. print ($digit2);
  184. }
  185.  
  186. if ($digit1 == 15)
  187. {
  188. print "f";
  189. }
  190.  
  191. elsif ($digit1 == 14)
  192. {
  193. print "e";
  194. }
  195.  
  196. elsif ($digit1 == 13)
  197. {
  198. print "d";
  199. }
  200.  
  201. elsif ($digit1 == 12)
  202. {
  203. print "c";
  204. }
  205.  
  206. elsif ($digit1 == 11)
  207. {
  208. print "b";
  209. }
  210. elsif ($digit1 == 10)
  211. {
  212. print "a";
  213. }
  214. else
  215. {
  216. print ($digit1);
  217. }